home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / ghostscr / gs25fnt1.zip / HRSC_S.GSF < prev    next >
Text File  |  1992-05-08  |  8KB  |  214 lines

  1. %!
  2. % Common definitions for the Hershey fonts.
  3.  
  4. /MakeHersheyFont where
  5.  { pop 80 string
  6.     { currentfile 1 index readline pop
  7.        (%END) eq { exit } if
  8.     } loop pop
  9.  } if
  10.  
  11. userdict begin
  12. /HersheyBuildDict 10 dict def
  13.  
  14. /BuildHersheyChar {
  15.     exch begin
  16.         PenWidth setlinewidth
  17.         Encoding exch get
  18.         dup CharData exch known not { pop /.notdef } if
  19.         CharData exch get
  20.     end
  21.     /cd exch def
  22.  
  23.     /llx 99 def /lly 99 def /urx -99 def /ury -99 def
  24.     true
  25.  
  26.     cd 2 get {
  27.         exch {
  28.             dup 32 eq {
  29.                 pop true
  30.             } {
  31.                 82 sub cd 0 get sub
  32.  
  33.                 dup llx lt {
  34.                     dup /llx exch def
  35.                 } if
  36.                 dup urx gt {
  37.                     dup /urx exch def
  38.                 } if
  39.                 pop false
  40.             } ifelse
  41.         } {
  42.             neg 91 add
  43.  
  44.             dup lly lt {
  45.                 dup /lly exch def
  46.             } if
  47.             dup ury gt {
  48.                 dup /ury exch def
  49.             } if
  50.             pop true
  51.         } ifelse
  52.     } forall pop
  53.  
  54.     cd 1 get cd 0 get sub 0 llx 1 sub lly 1 sub urx 1 add ury 1 add
  55.     setcachedevice
  56.  
  57.     /domove true def
  58.     true
  59.  
  60.     cd 2 get {
  61.         exch {
  62.             dup 32 eq {
  63.                 pop true
  64.                 /domove true def
  65.             } {
  66.                 82 sub cd 0 get sub
  67.                 false
  68.             } ifelse
  69.         } {
  70.             neg 91 add
  71.             domove {
  72.                 moveto
  73.                 /domove false def
  74.             } {
  75.                 lineto
  76.             } ifelse
  77.             true
  78.         } ifelse
  79.     } forall pop
  80.  
  81.     1 setmiterlimit 1 setlinejoin 1 setlinecap
  82.     stroke
  83. } bind def
  84.  
  85. /MakeHersheyFont {
  86.     10 dict begin
  87.     /ItalicAngle exch def
  88.     /PenWidth exch def
  89.     /FontName exch def
  90.     /CharData exch def
  91.  
  92.     /FontType 3 def
  93.     /FontMatrix 
  94.         [1 33 div
  95.         0
  96.         ItalicAngle neg dup sin exch cos div 33 div
  97.         1 33 div
  98.         0 0] def
  99.     /Encoding StandardEncoding def
  100.     /BuildChar {HersheyBuildDict begin BuildHersheyChar end} def
  101.     /FontBBox {-10 -10 30 30} def
  102.  
  103.     FontName currentdict end definefont
  104. } bind def
  105. end        % userdict
  106. %END
  107.  
  108. 150 dict dup begin
  109. /hyphen [-6 6 (NRVR)] def
  110. /A [-11 9 (G[IZLWOSSLVFV[UXSUQSNQLQKRKTLVNXQZT[Y[)] def
  111. /B [-12 11 (SHTITLSPRSQUOXMZK[J[IZIWJRKOLMNJPHRGUFXFZG[I[KZMYNWOTP SPTPWQXRYTYWXYWZU[R[PZOX)] def
  112. /C [-10 10 (TLTMUNWNYMZKZIYGWFTFQGOIMLLNKRKVLYMZO[Q[TZVXWV)] def
  113. /D [-11 12 (TFRGQIPMOSNVMXKZI[G[FZFXGWIWKXMZP[S[VZXXZT[O[KZHYGWFTFRHRJSMUPWRZT\\U)] def
  114. /E [-10 10 (VJVKWLYLZKZIYGVFRFOGNINLONPOSPPPMQLRKTKWLYMZP[S[VZXXYV)] def
  115. /F [-10 10 (RLPLNKMINGQFTFXG[G]F XGVNTTRXPZN[L[JZIXIVJULUNV QPZP)] def
  116. /G [-11 12 (G[IZMVPQQNRJRGQFPFOGNINLONQOUOXNYMZKZQYVXXVZS[O[LZJXIVIT)] def
  117. /H [-12 12 (MMKLJJJIKGMFNFPGQIQKPONULYJ[H[GZGX MRVOXN[L]J^H^G]F\\FZHXLVRUWUZV[W[YZZY\\V)] def
  118. /I [-9 8 (WVUTSQROQLQIRGSFUFVGWIWLVQTVSXQZO[M[KZJXJVKUMUOV)] def
  119. /J [-8 7 (T^R[PVOPOJPGRFTFUGVJVMURR[PaOdNfLgKfKdLaN^P\\SZWX)] def
  120. /K [-12 12 (MMKLJJJIKGMFNFPGQIQKPONULYJ[H[GZGX ^I^G]F\\FZGXIVLTNROPO ROSQSXTZU[V[XZYY[V)] def
  121. /L [-9 10 (MRORSQVOXMYKYHXFVFUGTISNRSQVPXNZL[J[IZIXJWLWNXQZT[V[YZ[X)] def
  122. /M [-18 15 (EMCLBJBICGEFFFHGIIIKHPGTE[ GTJLLHMGOFPFRGSISKRPQTO[ QTTLVHWGYFZF\\G]I]K\\PZWZZ[[\\[^Z_YaV)] def
  123. /N [-13 11 (JMHLGJGIHGJFKFMGNINKMPLTJ[ LTOLQHRGTFVFXGYIYKXPVWVZW[X[ZZ[Y]V)] def
  124. /O [-10 11 (TFQGOIMLLNKRKVLYMZO[Q[TZVXXUYSZOZKYHXGVFTFRHRKSNUQWSZU\\V)] def
  125. /P [-12 13 (SHTITLSPRSQUOXMZK[J[IZIWJRKOLMNJPHRGUFZF\\G]H^J^M]O\\PZQWQUPTO)] def
  126. /Q [-10 12 (ULTNSOQPOPNNNLOIQGTFWFYGZIZMYPWSSWPYNZK[I[HZHXIWKWMXPZS[V[YZ[X)] def
  127. /R [-12 13 (SHTITLSPRSQUOXMZK[J[IZIWJRKOLMNJPHRGUFYF[G\\H]J]M\\O[PYQVQSPTQUSUXVZX[ZZ[Y]V)] def
  128. /S [-10 10 (H[JZLXOTQQSMTJTGSFRFQGPIPKQMSOVQXSYUYWXYWZT[P[MZKXJVJT)] def
  129. /T [-10 9 (RLPLNKMINGQFTFXG[G]F XGVNTTRXPZN[L[JZIXIVJULUNV)] def
  130. /U [-13 11 (JMHLGJGIHGJFKFMGNINKMOLRKVKXLZN[P[RZSYUUXMZF XMWQVWVZW[X[ZZ[Y]V)] def
  131. /V [-12 11 (KMILHJHIIGKFLFNGOIOKNOMRLVLYM[O[QZTWVTXPYMZIZGYFXFWGVIVKWNYP[Q)] def
  132. /W [-15 13 (HMFLEJEIFGHFIFKGLILLK[ UFK[ UFS[ aF_G\\JYNVTS[)] def
  133. /X [-12 12 (NLLLKKKILGNFPFRGSISLQUQXRZT[V[XZYXYVXUVU ]I]G\\FZFXGVITLPUNXLZJ[H[GZGX)] def
  134. /Y [-12 11 (KMILHJHIIGKFLFNGOIOKNOMRLVLXMZN[P[RZTXVUWSYM [FYMVWT]RbPfNgMfMdNaP^S[VY[V)] def
  135. /Z [-10 11 (ULTNSOQPOPNNNLOIQGTFWFYGZIZMYPWTTWPZN[K[JZJXKWNWPXQYR[R^QaPcNfLgKfKdLaN^Q[TYZV)] def
  136. /a [-6 10 (UUTSRRPRNSMTLVLXMZO[Q[SZTXVRUWUZV[W[YZZY\\V)] def
  137. /b [-5 9 (MVOSRNSLTITGSFQGPIOMNTNZO[P[RZTXUUURVVWWYW[V)] def
  138. /c [-5 6 (TTTSSRQROSNTMVMXNZP[S[VYXV)] def
  139. /d [-6 10 (UUTSRRPRNSMTLVLXMZO[Q[SZTXZF VRUWUZV[W[YZZY\\V)] def
  140. /e [-4 6 (OYQXRWSUSSRRQROSNUNXOZQ[S[UZVYXV)] def
  141. /f [-3 5 (OVSQUNVLWIWGVFTGSIQQNZKaJdJfKgMfNcOZP[R[TZUYWV)] def
  142. /g [-6 9 (UUTSRRPRNSMTLVLXMZO[Q[SZTY VRTYPdOfMgLfLdMaP^S\\U[XY[V)] def
  143. /h [-5 10 (MVOSRNSLTITGSFQGPIOMNSM[ M[NXOVQSSRURVSVUUXUZV[W[YZZY\\V)] def
  144. /i [-2 5 (SMSNTNTMSM PVRRPXPZQ[R[TZUYWV)] def
  145. /j [-2 5 (SMSNTNTMSM PVRRLdKfIgHfHdIaL^O\\Q[TYWV)] def
  146. /k [-5 9 (MVOSRNSLTITGSFQGPIOMNSM[ M[NXOVQSSRURVSVUTVQV QVSWTZU[V[XZYY[V)] def
  147. /l [-3 5 (OVQSTNULVIVGUFSGRIQMPTPZQ[R[TZUYWV)] def
  148. /m [-13 12 (EVGSIRJSJTIXH[ IXJVLSNRPRQSQTPXO[ PXQVSSURWRXSXUWXWZX[Y[[Z\\Y^V)] def
  149. /n [-8 10 (JVLSNROSOTNXM[ NXOVQSSRURVSVUUXUZV[W[YZZY\\V)] def
  150. /o [-6 8 (RRPRNSMTLVLXMZO[Q[SZTYUWUUTSRRQSQURWTXWXYWZV)] def
  151. /p [-7 8 (KVMSNQMUGg MUNSPRRRTSUUUWTYSZQ[ MZO[R[UZWYZV)] def
  152. /q [-6 9 (UUTSRRPRNSMTLVLXMZO[Q[SZ VRUUSZPaOdOfPgRfScS\\U[XY[V)] def
  153. /r [-5 8 (MVOSPQPSSSTTTVSYSZT[U[WZXYZV)] def
  154. /s [-4 7 (NVPSQQQSSVTXTZR[ NZP[T[VZWYYV)] def
  155. /t [-3 6 (OVQSSO VFPXPZQ[S[UZVYXV PNWN)] def
  156. /u [-6 9 (LVNRLXLZM[O[QZSXUU VRTXTZU[V[XZYY[V)] def
  157. /v [-6 9 (LVNRMWMZN[O[RZTXUUUR URVVWWYW[V)] def
  158. /w [-9 12 (LRJTIWIYJ[L[NZPX RRPXPZQ[S[UZWXXUXR XRYVZW\\W^V)] def
  159. /x [-8 8 (JVLSNRPRQSQZR[U[XYZV WSVRTRSSOZN[L[KZ)] def
  160. /y [-6 9 (LVNRLXLZM[O[QZSXUU VRPdOfMgLfLdMaP^S\\U[XY[V)] def
  161. /z [-6 8 (LVNSPRRRTTTVSXQZN[P\\Q^QaPdOfMgLfLdMaP^S\\WYZV)] def
  162. /space [-4 4 ()] def
  163. /zero [-10 10 (QFNGLJKOKRLWNZQ[S[VZXWYRYOXJVGSFQF)] def
  164. /one [-10 10 (NJPISFS[)] def
  165. /two [-10 10 (LKLJMHNGPFTFVGWHXJXLWNUQK[Y[)] def
  166. /three [-10 10 (MFXFRNUNWOXPYSYUXXVZS[P[MZLYKW)] def
  167. /four [-10 10 (UFKTZT UFU[)] def
  168. /five [-10 10 (WFMFLOMNPMSMVNXPYSYUXXVZS[P[MZLYKW)] def
  169. /six [-10 10 (XIWGTFRFOGMJLOLTMXOZR[S[VZXXYUYTXQVOSNRNOOMQLT)] def
  170. /seven [-10 10 (YFO[ KFYF)] def
  171. /eight [-10 10 (PFMGLILKMMONSOVPXRYTYWXYWZT[P[MZLYKWKTLRNPQOUNWMXKXIWGTFPF)] def
  172. /nine [-10 10 (XMWPURRSQSNRLPKMKLLINGQFRFUGWIXMXRWWUZR[P[MZLX)] def
  173. /period [-5 5 (RYQZR[SZRY)] def
  174. /comma [-5 5 (SZR[QZRYSZS\\R^Q_)] def
  175. /colon [-5 5 (RMQNROSNRM RYQZR[SZRY)] def
  176. /semicolon [-5 5 (RMQNROSNRM SZR[QZRYSZS\\R^Q_)] def
  177. /exclam [-5 5 (RFRT RYQZR[SZRY)] def
  178. /question [-9 9 (LKLJMHNGPFTFVGWHXJXLWNVORQRT RYQZR[SZRY)] def
  179. /quotesingle [-4 4 (RFRM)] def
  180. /quotedbl [-8 8 (NFNM VFVM)] def
  181. /dollar [-10 10 (PBP_ TBT_ YIWGTFPFMGKIKKLMMNOOUQWRXSYUYXWZT[P[MZKX)] def
  182. /parenleft [-7 7 (VBTDRGPKOPOTPYR]T`Vb)] def
  183. /parenright [-7 7 (NBPDRGTKUPUTTYR]P`Nb)] def
  184. /bar [-4 4 (RBRb)] def
  185. /plus [-13 13 (RIR[ IR[R)] def
  186. /equal [-13 13 (IO[O IU[U)] def
  187. /asterisk [-8 8 (RLRX MOWU WOMU)] def
  188. /periodcentered [-5 5 (RQQRRSSRRQ)] def
  189. /quoteleft [-5 5 (SFRGQIQKRLSKRJ)] def
  190. /quoteright [-5 5 (RHQGRFSGSIRKQL)] def
  191. /numbersign [-10 11 (SBLb YBRb LOZO KUYU)] def
  192. /ampersand [-13 13 (\\O\\N[MZMYNXPVUTXRZP[L[JZIYHWHUISJRQNRMSKSIRGPFNGMIMKNNPQUXWZY[[[\\Z\\Y)] def
  193. /currency [-11 11 (IIJKKOKUJYI[ [IZKYOYUZY[[ IIKJOKUKYJ[I I[KZOYUYYZ[[)] def
  194. /bullet [-2 2 (QPPQPSQTSTTSTQSPQP RQQRRSSRRQ)] def
  195. /slash [-7 7 (K^YF)] def
  196. /backslash [-7 7 (KFY^)] def
  197. /tilde [-8 8 (LTLRMPOPUSWSXR LRMQOQUTWTXRXP)] def
  198. /bracketleft [-7 7 (OBOb PBPb OBVB ObVb)] def
  199. /bracketright [-7 7 (TBTb UBUb NBUB NbUb)] def
  200. /braceleft [-7 7 (TBRCQDPFPHQJRKSMSOQQ RCQEQGRISJTLTNSPORSTTVTXSZR[Q]Q_Ra QSSUSWRYQZP\\P^Q`RaTb)] def
  201. /braceright [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
  202. /less [-12 12 (ZIJRZ[)] def
  203. /greater [-12 12 (JIZRJ[)] def
  204. /asciitilde [-12 12 (IUISJPLONOPPTSVTXTZS[Q ISJQLPNPPQTTVUXUZT[Q[O)] def
  205. /asciicircum [-11 11 (JTROZT JTRPZT)] def
  206. /percent [-12 12 ([FI[ NFPHPJOLMMKMIKIIJGLFNFPGSHVHYG[F WTUUTWTYV[X[ZZ[X[VYTWT)] def
  207. /at [-13 14 (WNVLTKQKOLNMMPMSNUPVSVUUVS QKOMNPNSOUPV WKVSVUXVZV\\T]Q]O\\L[JYHWGTFQFNGLHJJILHOHRIUJWLYNZQ[T[WZYYZX XKWSWUXV)] def
  208. /section [-8 8 (UITJUKVJVIUGSFQFOGNINKOMQOVR OMTPVRWTWVVXTZ PNNPMRMTNVPXU[ NVSYU[V]V_UaSbQbOaN_N^O]P^O_)] def
  209. /dagger [-8 8 (RFQHRJSHRF RFRb RQQTRbSTRQ LMNNPMNLLM LMXM TMVNXMVLTM)] def
  210. /daggerdbl [-8 8 (RFQHRJSHRF RFRT RPQRSVRXQVSRRP RTRb R^Q`RbS`R^ LMNNPMNLLM LMXM TMVNXMVLTM L[N\\P[NZL[ L[X[ T[V\\X[VZT[)] def
  211. /.notdef [ 0 0 () ] def        % not defined
  212. end 
  213. /Hershey-Script-Simplex 0.5 0 MakeHersheyFont
  214.